home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / basic / imb9103.zip / ISSHARE.BAS < prev    next >
BASIC Source File  |  1991-03-01  |  303b  |  17 lines
  1. ' $INCLUDE: 'QBX.BI'
  2. DIM Regs AS RegType
  3.  
  4.   Regs.AX = &H1000
  5.   CALL Interrupt (&H2F, Regs, Regs)
  6.   AL = Regs.AX MOD 256
  7.  
  8.   SELECT CASE AL
  9.     CASE 0
  10.         PRINT "SHARE is not loaded."
  11.     CASE 255
  12.         Print "SHARE is loaded."
  13.     CASE ELSE
  14.         PRINT "I am confused. AL = ";AL
  15.   END SELECT
  16.   END
  17.